home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Festival Card Factory
/
Festival Card Factory.iso
/
graphwin.~df
/
graphwin.txt
Wrap
Text File
|
1995-12-25
|
24KB
|
634 lines
object Form1: TForm1
Left = 26
Top = 26
ActiveControl = ScrollBox1
AutoScroll = False
Caption = 'Power Source Card Maker'
ClientHeight = 380
ClientWidth = 586
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu1
PixelsPerInch = 96
Position = poDefault
WindowState = wsMaximized
OnCreate = FormCreate
OnMouseDown = IMAGEMouseDown
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
TextHeight = 16
object ToolBar: TPanel
Left = 0
Top = 0
Width = 586
Height = 41
Align = alTop
TabOrder = 0
object LineButton: TSpeedButton
Left = 8
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003333333333333333300300003333333333333333003300003333
3333333333300333000033333333333333003333000033333333333330033333
0000333333333333003333330000333333333330033333330000333333333300
3333333300003333333330033333333300003333333300333333333300003333
3330033333333333000033333300333333333333000033333003333333333333
0000333300333333333333330000333003333333333333330000330033333333
3333333300003003333333333333333300003033333333333333333300003333
33333333333333330000}
OnClick = LineButtonClick
end
object RectangleButton: TSpeedButton
Left = 40
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033333333333333330300003033
3333333333333303000030333333333333333303000030333333333333333303
0000303333333333333333030000303333333333333333030000303333333333
3333330300003033333333333333330300003033333333333333330300003033
3333333333333303000030333333333333333303000030333333333333333303
0000303333333333333333030000303333333333333333030000303333333333
3333330300003033333333333333330300003000000000000000000300003333
33333333333333330000}
OnClick = RectangleButtonClick
end
object EllipseButton: TSpeedButton
Left = 72
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
3333330000003333003333330033330000003330333333333303330000003303
3333333333303300000030333333333333330300000030333333333333330300
0000033333333333333330000000033333333333333330000000033333333333
3333300000000333333333333333300000000333333333333333300000000333
3333333333333000000030333333333333330300000030333333333333330300
0000330333333333333033000000333033333333330333000000333300333333
003333000000333333000000333333000000}
OnClick = EllipseButtonClick
end
object RoundRectButton: TSpeedButton
Left = 104
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0033330000003300333333333300330000003033333333333333030000003033
3333333333330300000003333333333333333000000003333333333333333000
0000033333333333333330000000033333333333333330000000033333333333
3333300000000333333333333333300000000333333333333333300000000333
3333333333333000000003333333333333333000000003333333333333333000
0000303333333333333303000000303333333333333303000000330033333333
330033000000333300000000003333000000}
OnClick = RoundRectButtonClick
end
object PenButton: TSpeedButton
Left = 184
Top = 8
Width = 25
Height = 25
AllowAllUp = True
GroupIndex = 2
Glyph.Data = {
66010000424D6601000000000000760000002800000015000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333339003333333333333333003334003333333333333330F00334003333
33333333330F0003300033333333333330F00033300033333333333300000333
3C00333333333330F0003333380033333333330F0003333330003333333330F0
003333333700333333330F0003333333370033333330F000333333333F003333
330F0003333333333700333330F00033333333333F0033330F00033333333333
37003330F0003333333333333700333000033333333333333000330F00333333
3333333337003300333333333333333337003033333333333333333337003333
33333333333333333700}
OnClick = PenButtonClick
end
object BrushButton: TSpeedButton
Left = 216
Top = 8
Width = 25
Height = 25
AllowAllUp = True
GroupIndex = 3
Glyph.Data = {
66010000424D6601000000000000760000002800000013000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333F000030030000003333333337000033333330F0003333333B00003333
33330F000333333000003333333330F00033333700003333333330F000333330
00003333333300F00003333A0000333333300FF0000333370000333333300F00
00033337000033333300FF000000333E00003333330FF0000000333700003333
330FF00000003337000033333300F0000000333F000033333330000000033337
0000333333330FFF003333370000333333330FFF0033333F0000333333330FFF
0033333E0000333333330FFF0033333700003333333330000333333F00003333
33333333333333300000}
OnClick = BrushButtonClick
end
object SpeedButton1: TSpeedButton
Left = 256
Top = 8
Width = 25
Height = 25
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF
F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF
F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF
F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070
F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0
F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
333337FFFFFFFF77333330000000000333333777777777733333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 288
Top = 8
Width = 25
Height = 25
AllowAllUp = True
GroupIndex = 4
OnClick = SpeedButton2Click
end
end
object PenBar: TPanel
Left = 0
Top = 82
Width = 586
Height = 41
Align = alTop
TabOrder = 1
Visible = False
object SolidPen: TSpeedButton
Left = 8
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333700333333333333333333333000300000000000000000003F003333
33333333333333333000333333333333333333333000}
OnClick = SetPenStyle
end
object DashPen: TSpeedButton
Left = 40
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333700333333333333333333333000300000300000030000033F003333
33333333333333333000333333333333333333333000}
OnClick = SetPenStyle
end
object DotPen: TSpeedButton
Left = 72
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333003333333333333333333333003030303030303030303033003333
33333333333333333300333333333333333333333300}
OnClick = SetPenStyle
end
object DashDotPen: TSpeedButton
Left = 104
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333330003333333333333333333330003000003030000030300030003333
33333333333333333F00333333333333333333333700}
OnClick = SetPenStyle
end
object DashDotDotPen: TSpeedButton
Left = 136
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333003333333333333333333333003000003030300000303033003333
33333333333333333300333333333333333333333300}
OnClick = SetPenStyle
end
object ClearPen: TSpeedButton
Left = 168
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
B2000000424DB200000000000000760000002800000015000000050000000100
0400000000003C00000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333
33333333333333333300333333333333333333333300}
OnClick = SetPenStyle
end
object PenSize: TLabel
Left = 448
Top = 12
Width = 7
Height = 16
Caption = '1'
FocusControl = PenWidth
end
object PenColor: TColorGrid
Left = 208
Top = 8
Width = 96
Height = 24
GridOrdering = go8x2
BackgroundEnabled = False
TabOrder = 0
OnClick = PenColorClick
end
object PenWidth: TScrollBar
Left = 320
Top = 12
Width = 121
Height = 17
LargeChange = 10
Min = 1
Position = 1
TabOrder = 1
OnChange = PenWidthChange
end
end
object BrushBar: TPanel
Left = 0
Top = 41
Width = 586
Height = 41
Align = alTop
TabOrder = 2
Visible = False
object SolidBrush: TSpeedButton
Left = 8
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003000000000000000000300003000
0000000000000003000030000000000000000003000030000000000000000003
0000300000000000000000030000300000000000000000030000300000000000
0000000300003000000000000000000300003000000000000000000300003000
0000000000000003000030000000000000000003000030000000000000000003
0000300000000000000000030000300000000000000000030000300000000000
0000000300003000000000000000000300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object ClearBrush: TSpeedButton
Left = 40
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033333333333333330300003033
3333333333333303000030333333333333333303000030333333333333333303
0000303333333333333333030000303333333333333333030000303333333333
3333330300003033333333333333330300003033333333333333330300003033
3333333333333303000030333333333333333303000030333333333333333303
0000303333333333333333030000303333333333333333030000303333333333
3333330300003033333333333333330300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object HorizontalBrush: TSpeedButton
Left = 72
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033333333333333330300003000
0000000000000003000030333333333333333303000030333333333333333303
0000300000000000000000030000303333333333333333030000303333333333
3333330300003000000000000000000300003033333333333333330300003033
3333333333333303000030000000000000000003000030333333333333333303
0000303333333333333333030000300000000000000000030000303333333333
3333330300003033333333333333330300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object VerticalBrush: TSpeedButton
Left = 104
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033033033033033030300003033
0330330330330303000030330330330330330303000030330330330330330303
0000303303303303303303030000303303303303303303030000303303303303
3033030300003033033033033033030300003033033033033033030300003033
0330330330330303000030330330330330330303000030330330330330330303
0000303303303303303303030000303303303303303303030000303303303303
3033030300003033033033033033030300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object FDiagonalBrush: TSpeedButton
Left = 136
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033303330333033300300003033
0333033303330303000030303330333033303303000030033303330333033303
0000303330333033303330030000303303330333033303030000303033303330
3330330300003003330333033303330300003033303330333033300300003033
0333033303330303000030303330333033303303000030033303330333033303
0000303330333033303330030000303303330333033303030000303033303330
3330330300003003330333033303330300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object BDiagonalBrush: TSpeedButton
Left = 168
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003003330333033303330300003030
3330333033303303000030330333033303330303000030333033303330333003
0000300333033303330333030000303033303330333033030000303303330333
0333030300003033303330333033300300003003330333033303330300003030
3330333033303303000030330333033303330303000030333033303330333003
0000300333033303330333030000303033303330333033030000303303330333
0333030300003033303330333033300300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object CrossBrush: TSpeedButton
Left = 200
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033033033033033030300003000
0000000000000003000030330330330330330303000030330330330330330303
0000300000000000000000030000303303303303303303030000303303303303
3033030300003000000000000000000300003033033033033033030300003033
0330330330330303000030000000000000000003000030330330330330330303
0000303303303303303303030000300000000000000000030000303303303303
3033030300003033033033033033030300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object DiagCrossBrush: TSpeedButton
Left = 232
Top = 8
Width = 25
Height = 25
GroupIndex = 1
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333300003000000000000000000300003033303330333033300300003003
0303030303030303000030303330333033303303000030030303030303030303
0000303330333033303330030000300303030303030303030000303033303330
3330330300003003030303030303030300003033303330333033300300003003
0303030303030303000030303330333033303303000030030303030303030303
0000303330333033303330030000300303030303030303030000303033303330
3330330300003003030303030303030300003000000000000000000300003333
33333333333333330000}
OnClick = SetBrushStyle
end
object BrushColor: TColorGrid
Left = 272
Top = 8
Width = 96
Height = 24
GridOrdering = go8x2
BackgroundEnabled = False
TabOrder = 0
OnClick = BrushColorClick
end
end
object StatusBar: TPanel
Left = 0
Top = 339
Width = 586
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object OriginPanel: TPanel
Left = 0
Top = 0
Width = 185
Height = 41
Align = alLeft
BevelInner = bvLowered
TabOrder = 0
end
object CurrentPanel: TPanel
Left = 185
Top = 0
Width = 401
Height = 41
Align = alClient
BevelInner = bvLowered
TabOrder = 1
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 123
Width = 586
Height = 216
Align = alClient
TabOrder = 4
object Image: TImage
Left = 0
Top = 0
Width = 584
Height = 214
Align = alClient
AutoSize = True
OnMouseDown = IMAGEMouseDown
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
end
object Label1: TLabel
Left = 104
Top = 56
Width = 4
Height = 16
Visible = False
end
end
object Edit2: TEdit
Left = 233
Top = 178
Width = 224
Height = 24
BorderStyle = bsNone
TabOrder = 5
Visible = False
end
object MainMenu1: TMainMenu
Left = 328
Top = 8
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New'
OnClick = New1Click
ShortCutText = 'Ctrl+N'
end
object Open1: TMenuItem
Caption = '&Open...'
OnClick = Open1Click
ShortCutText = 'Ctrl+O'
end
object Save1: TMenuItem
Caption = '&Save'
OnClick = Save1Click
ShortCutText = 'Ctrl+S'
end
object Saveas1: TMenuItem
Caption = 'Save &as...'
OnClick = Saveas1Click
end
object Print1: TMenuItem
Caption = '&Print'
OnClick = Print1Click
ShortCutText = 'Ctrl+P'
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object Cut1: TMenuItem
Caption = 'Cu&t'
OnClick = Cut1Click
ShortCutText = 'Ctrl+X'
end
object Copy1: TMenuItem
Caption = '&Copy'
OnClick = Copy1Click
ShortCutText = 'Ctrl+C'
end
object Paste1: TMenuItem
Caption = '&Paste'
OnClick = Paste1Click
ShortCutText = 'Ctrl+V'
end
end
end
object OpenDialog1: TOpenDialog
DefaultExt = 'bmp'
Filter = 'Bitmap files (*.bmp)|*.bmp'
Left = 368
Top = 8
end
object SaveDialog1: TSaveDialog
DefaultExt = 'bmp'
Filter = 'Bitmap files (*.bmp)|*.bmp'
Left = 408
Top = 8
end
end